﻿Public Class Login

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ad As New ADLogin
        ad.RealizarLogin("", "")

    End Sub
End Class
